	PRO TVS,dir,time,Nproc
; Halftones of the electric current density component along the z-direction,
; j(x,y).
;
leer_input,dir,N
leer,dir,time,Nproc,a,f,b,u,jj,ww

loadct,3 ; color palette
window,0,xs=N,ys=N,title='j(x,y)'
tvscl,jj
window,1,xs=N,ys=N,title='w(x,y)'
tvscl,ww
window,2,xs=N,ys=N,title='b(x,y)'
tvscl,b
window,3,xs=N,ys=N,title='u(x,y)'
tvscl,u
end
